home *** CD-ROM | disk | FTP | other *** search
/ PC World Plus! (NZ) 2001 February / 001221_1330.iso / topshare / pr5try.exe / Premiere 5.0 Tryout / ARCHIVE.Z / EPSParser.8by / PROC / ADOBE_ILLUSTRATOR88 < prev    next >
Encoding:
Text File  |  1998-07-02  |  12.6 KB  |  1,088 lines
  1. %%BeginProcSet: Adobe_Illustrator88 1.20 0
  2. currentpacking true setpacking
  3. userdict /Adobe_cshow 14 dict dup begin put
  4. /initialize
  5. {
  6. } def
  7. /initialize2
  8. {
  9.     Adobe_cshow begin
  10.     Adobe_cshow
  11.     {
  12.         dup xcheck
  13.         {
  14.             bind
  15.         } if
  16.         pop pop
  17.     } forall
  18.  end
  19.     Adobe_cshow begin
  20. } def
  21. /terminate
  22. {
  23. } def
  24. /terminate2
  25. {
  26. currentdict Adobe_cshow eq
  27.     {
  28.  end
  29.     } if
  30. } def
  31. /cforall
  32. {
  33.     /_lobyte 0 ddef
  34.     /_hibyte 0 ddef
  35.     /_cproc exch ddef
  36.     /_cscript currentfont /FontScript known { currentfont /FontScript get } { -1 } ifelse ddef
  37.     {
  38.         /_lobyte exch ddef
  39.         _hibyte 0 eq
  40.         _cscript 1 eq
  41.         _lobyte 129 ge _lobyte 159 le and
  42.         _lobyte 224 ge _lobyte 252 le and or and
  43.         _cscript 2 eq
  44.         _lobyte 161 ge _lobyte 254 le and and
  45.         _cscript 3 eq
  46.         _lobyte 161 ge _lobyte 254 le and and
  47.         _cscript 25 eq
  48.         _lobyte 161 ge _lobyte 254 le and and
  49.         _cscript -1 eq
  50.         or or or or and
  51.         {
  52.             /_hibyte _lobyte ddef
  53.         }
  54.         {
  55.             _hibyte 256 mul _lobyte add
  56.             _cproc
  57.             /_hibyte 0 ddef
  58.         } ifelse
  59.     } forall
  60. } def
  61. /cstring
  62. {
  63.     dup 256 lt
  64.     {
  65.         (s) dup 0 4 3 roll put
  66.     }
  67.     {
  68.         dup 256 idiv exch 256 mod
  69.         (hl) dup dup 0 6 5 roll put 1 4 3 roll put
  70.     } ifelse
  71. } def
  72. /clength
  73. {
  74.     0 exch
  75.     { 256 lt { 1 } { 2 } ifelse add } cforall
  76. } def
  77. /hawidthshow
  78. {
  79.     {
  80.         dup cstring
  81.         show
  82.         _hvax _hvay rmoveto
  83.         _hvwb eq { _hvcx _hvcy rmoveto } if
  84.     } cforall
  85. } def
  86. /vawidthshow
  87. {
  88.     {
  89.         dup 255 le
  90.         _charorientation 1 eq
  91.         and
  92.         {
  93.             -90 rotate
  94.             0 _fontRotateAdjust rmoveto
  95.             cstring
  96.             _hvcx _hvcy _hvwb _hvax _hvay 6 -1 roll awidthshow
  97.             0 _fontRotateAdjust neg rmoveto
  98.             90 rotate
  99.         }
  100.         {
  101.             currentpoint
  102.             _fontHeight sub
  103.             exch _hvay sub exch _hvax sub
  104.             2 index _hvwb eq { exch _hvcy sub exch _hvcx sub } if
  105.             3 2 roll
  106.             cstring
  107.             dup stringwidth pop 2 div neg _fontAscent neg rmoveto
  108.             show
  109.             moveto
  110.         } ifelse
  111.     } cforall
  112. } def
  113. /hvawidthshow
  114. {
  115.     6 1 roll
  116.     /_hvay exch ddef
  117.     /_hvax exch ddef
  118.     /_hvwb exch ddef
  119.     /_hvcy exch ddef
  120.     /_hvcx exch ddef
  121.     _lineorientation 0 eq { hawidthshow } { vawidthshow } ifelse
  122. } def
  123. /hvwidthshow
  124. {
  125.     0 0 3 -1 roll hvawidthshow
  126. } def
  127. /hvashow
  128. {
  129.     0 0 0 6 -3 roll hvawidthshow
  130. } def
  131. /hvshow
  132. {
  133.     0 0 0 0 0 6 -1 roll hvawidthshow
  134. } def
  135. currentdict readonly pop end
  136. setpacking
  137. currentpacking true setpacking
  138. userdict /Adobe_customcolor 5 dict dup begin put
  139. /initialize
  140. {
  141. /setcustomcolor where
  142.     {
  143.     pop
  144.     }
  145.     {
  146.     Adobe_customcolor begin
  147.     Adobe_customcolor
  148.         {
  149.         dup xcheck
  150.             {
  151.             bind
  152.             } if
  153.         pop pop
  154.         } forall
  155.  end
  156.     Adobe_customcolor begin
  157.     } ifelse
  158. } def
  159. /terminate
  160. {
  161. currentdict Adobe_customcolor eq
  162.     {
  163.  end
  164.     } if
  165. } def
  166. /findcmykcustomcolor
  167. {
  168. 5 packedarray
  169. }  def
  170. /setcustomcolor
  171. {
  172. exch
  173. aload pop pop
  174. 4
  175.     {
  176.     4 index mul 4 1 roll
  177.     } repeat
  178. 5 -1 roll pop
  179. setcmykcolor
  180. } def
  181. /setoverprint
  182. {
  183. pop
  184. } def
  185. currentdict readonly pop end
  186. setpacking
  187.  
  188. currentpacking true setpacking
  189. userdict /Adobe_Illustrator88 73 dict dup begin put
  190. userdict /Adobe_Illustrator881 currentdict put
  191. /initialize
  192. {
  193. userdict /Adobe_Illustrator88_vars 31 dict dup begin put
  194. /_lp /none def
  195. /_pf {} def
  196. /_ps {} def
  197. /_psf {} def
  198. /_pss {} def
  199. /_a null def
  200. /_as null def
  201. /_tt 2 array def
  202. /_tl 2 array def
  203. /_tm matrix def
  204. /t {} def
  205. /_gf null def
  206. /_cf 4 array def
  207. /_if null def
  208. /_of false def
  209. /_fc {} def
  210. /_gs null def
  211. /_cs 4 array def
  212. /_is null def
  213. /_os false def
  214. /_sc {} def
  215. /_pd 1 dict def
  216. /_ed 15 dict def
  217. /_pm matrix def
  218. /_fm null def
  219. /_fd null def
  220. /_fdd null def
  221. /_sm null def
  222. /_sd null def
  223. /_sdd null def
  224. /_i null def
  225. Adobe_Illustrator88 begin
  226. Adobe_Illustrator88 dup /nc get begin
  227.     {
  228.     dup xcheck
  229.         {
  230.         bind
  231.         } if
  232.     pop pop
  233.     } forall
  234. end
  235. end
  236. end
  237. Adobe_Illustrator88 begin
  238. Adobe_Illustrator88_vars begin
  239. newpath
  240. } def
  241. /terminate
  242. {
  243. end
  244. end
  245. } def
  246. /_
  247. null def
  248. /ddef
  249. {
  250. Adobe_Illustrator88_vars 3 1 roll put
  251. } def
  252. /xput
  253. {
  254. dup load dup length exch maxlength eq
  255.     {
  256.     dup dup load dup
  257.     length 2 mul dict copy def
  258.     } if
  259. load begin def end
  260. } def
  261. /npop
  262. {
  263.     {
  264.     pop
  265.     } repeat
  266. } def
  267. /sw
  268. {
  269. stringwidth
  270. exch 5 -1 roll 3 index 1 sub mul add
  271. 4 1 roll 3 1 roll 1 sub mul add
  272. } def
  273. /ss
  274. {
  275. 3 -1 roll pop
  276. 4 1 roll
  277.     {
  278.     2 npop (0) exch
  279.     2 copy 0 exch put pop
  280.     gsave
  281.     false charpath
  282.     currentpoint
  283.     4 index setmatrix
  284.     stroke
  285.     grestore
  286.     moveto
  287.     2 copy rmoveto
  288.     } exch cshow
  289. 3 npop
  290. } def
  291. /sp
  292. {
  293. exch pop
  294.     {
  295.     2 npop (0) exch
  296.     2 copy 0 exch put pop
  297.     false charpath
  298.     2 copy rmoveto
  299.     } exch cshow
  300. 2 npop
  301. } def
  302. /pl
  303. {
  304. transform
  305. 0.25 sub round 0.25 add exch
  306. 0.25 sub round 0.25 add exch
  307. itransform
  308. } def
  309. /setstrokeadjust where
  310. {
  311. pop true setstrokeadjust
  312. /c
  313. {
  314. curveto
  315. } def
  316. /C
  317. /c load def
  318. /v
  319. {
  320. currentpoint 6 2 roll curveto
  321. } def
  322. /V
  323. /v load def
  324. /y
  325. {
  326. 2 copy curveto
  327. } def
  328. /Y
  329. /y load def
  330. /l
  331. {
  332. lineto
  333. } def
  334. /L
  335. /l load def
  336. /m
  337. {
  338. moveto
  339. } def
  340. }
  341. {
  342. /c
  343. {
  344. pl curveto
  345. } def
  346. /C
  347. /c load def
  348. /v
  349. {
  350. currentpoint 6 2 roll pl curveto
  351. } def
  352. /V
  353. /v load def
  354. /y
  355. {
  356. pl 2 copy curveto
  357. } def
  358. /Y
  359. /y load def
  360. /l
  361. {
  362. pl lineto
  363. } def
  364. /L
  365. /l load def
  366. /m
  367. {
  368. pl moveto
  369. } def
  370. } ifelse
  371. /d
  372. {
  373. setdash
  374. } def
  375. /cf
  376. currentflat def
  377. /i
  378. {
  379. dup 0 eq
  380.     {
  381.     pop cf
  382.     } if
  383. setflat
  384. } def
  385. /j
  386. {
  387. setlinejoin
  388. } def
  389. /J
  390. {
  391. setlinecap
  392. } def
  393. /M
  394. {
  395. setmiterlimit
  396. } def
  397. /w
  398. {
  399. setlinewidth
  400. } def
  401. /H
  402. {} def
  403. /h
  404. {
  405. closepath
  406. } def
  407. /N
  408. {
  409. newpath
  410. } def
  411. /n
  412. /N load def
  413. /F
  414. {
  415. _pf
  416. } def
  417. /f
  418. {
  419. closepath
  420. F
  421. } def
  422. /S
  423. {
  424. _ps
  425. } def
  426. /s
  427. {
  428. closepath
  429. S
  430. } def
  431. /B
  432. {
  433. gsave F grestore
  434. S
  435. } def
  436. /b
  437. {
  438. closepath
  439. B
  440. } def
  441. /W
  442. {
  443. clip
  444. } def
  445. /ta
  446. {
  447. _as moveto
  448. _tt aload pop 4 -2 roll
  449. } def
  450. /tl
  451. {
  452. _tl aload pop translate
  453. } def
  454. /as
  455. {
  456. {
  457. 0 0
  458. }
  459. {
  460. 2 copy _tt aload pop 4 -2 roll sw
  461. exch neg 2 div exch neg 2 div
  462. }
  463. {
  464. 2 copy _tt aload pop 4 -2 roll sw
  465. exch neg exch neg
  466. }
  467. {
  468. 0 0
  469. }
  470. } cvlit def
  471. /z
  472. {
  473. /_a exch ddef
  474. /_as as _a get ddef
  475. _a 2 le
  476.     {
  477.     0 _tt astore pop
  478.     0 exch neg _tl astore pop
  479.     }
  480.     {
  481.     0 exch neg _tt astore pop
  482.     neg 0 _tl astore pop
  483.     } ifelse
  484. exch findfont exch scalefont setfont
  485. } def
  486. /tm
  487. {
  488. _tm currentmatrix pop
  489. concat
  490. } def
  491. /I
  492. {
  493. tm
  494. /t
  495.     {
  496.     ta sp
  497.     tl
  498.     } ddef
  499. } def
  500. /o
  501. {
  502. tm
  503. /t
  504.     {
  505.     ta 4 npop
  506.     tl
  507.     newpath
  508.     } ddef
  509. } def
  510. /e
  511. {
  512. tm
  513. /t
  514.     {
  515.     ta _psf
  516.     tl
  517.     newpath
  518.     } ddef
  519. } def
  520. /r
  521. {
  522. tm
  523. /t
  524.     {
  525.     ta _tm _pss
  526.     tl
  527.     newpath
  528.     } ddef
  529. } def
  530. /a
  531. {
  532. tm
  533. /t
  534.     {
  535.     2 copy
  536.     ta _psf
  537.     newpath
  538.     ta _tm _pss
  539.     tl
  540.     newpath
  541.     } ddef
  542. } def
  543. /T
  544. {
  545. _tm setmatrix
  546. } def
  547. /Z
  548. {
  549. pop
  550. findfont begin
  551. currentdict dup length 1 add dict begin
  552.     {
  553.     1 index /FID ne
  554.         {
  555.         def
  556.         }
  557.         {
  558.         2 npop
  559.         } ifelse
  560.     } forall
  561. /FontName exch def dup length 0 ne
  562.     {
  563.     /Encoding Encoding 256 array copy def
  564.     0 exch
  565.         {
  566.         dup type /nametype eq
  567.             {
  568.             Encoding 2 index 2 index put pop
  569.             1 add
  570.             }
  571.             {
  572.             exch pop
  573.             } ifelse
  574.         } forall
  575.     } if pop
  576. currentdict dup end end
  577. /FontName get exch definefont pop
  578. } def
  579. /u
  580. {} def
  581. /U
  582. {} def
  583. /q
  584. {
  585. gsave
  586. } def
  587. /Q
  588. {
  589. grestore
  590. } def
  591. /`
  592. {
  593. /_i save ddef
  594. 6 1 roll 4 npop
  595. concat
  596. userdict begin
  597. /showpage {} def
  598. 0 setgray
  599. 0 setlinecap
  600. 1 setlinewidth
  601. 0 setlinejoin
  602. 10 setmiterlimit
  603. [] 0 setdash
  604. /setstrokeadjust where {pop false setstrokeadjust} if
  605. newpath
  606. 0 setgray
  607. false setoverprint
  608. pop
  609. } def
  610. /~
  611. {
  612. end
  613. _i restore
  614. } def
  615. /@
  616. {} def
  617. /&
  618. {} def
  619. /O
  620. {
  621. 0 ne
  622. /_of exch ddef
  623. /_lp /none ddef
  624. } def
  625. /R
  626. {
  627. 0 ne
  628. /_os exch ddef
  629. /_lp /none ddef
  630. } def
  631. /g
  632. {
  633. /_gf exch ddef
  634. /_fc
  635. {
  636. _lp /fill ne
  637.     {
  638.     _of setoverprint
  639.     _gf setgray
  640.     /_lp /fill ddef
  641.     } if
  642. } ddef
  643. /_pf
  644. {
  645. _fc
  646. fill
  647. } ddef
  648. /_psf
  649. {
  650. _fc
  651. exch pop
  652. ashow
  653. } ddef
  654. /_lp /none ddef
  655. } def
  656. /G
  657. {
  658. /_gs exch ddef
  659. /_sc
  660. {
  661. _lp /stroke ne
  662.     {
  663.     _os setoverprint
  664.     _gs setgray
  665.     /_lp /stroke ddef
  666.     } if
  667. } ddef
  668. /_ps
  669. {
  670. _sc
  671. stroke
  672. } ddef
  673. /_pss
  674. {
  675. _sc
  676. ss
  677. } ddef
  678. /_lp /none ddef
  679. } def
  680. /k
  681. {
  682. _cf astore pop
  683. /_fc
  684. {
  685. _lp /fill ne
  686.     {
  687.     _of setoverprint
  688.     _cf aload pop setcmykcolor
  689.     /_lp /fill ddef
  690.     } if
  691. } ddef
  692. /_pf
  693. {
  694. _fc
  695. fill
  696. } ddef
  697. /_psf
  698. {
  699. _fc
  700. exch pop
  701. ashow
  702. } ddef
  703. /_lp /none ddef
  704. } def
  705. /K
  706. {
  707. _cs astore pop
  708. /_sc
  709. {
  710. _lp /stroke ne
  711.     {
  712.     _os setoverprint
  713.     _cs aload pop setcmykcolor
  714.     /_lp /stroke ddef
  715.     } if
  716. } ddef
  717. /_ps
  718. {
  719. _sc
  720. stroke
  721. } ddef
  722. /_pss
  723. {
  724. _sc
  725. ss
  726. } ddef
  727. /_lp /none ddef
  728. } def
  729. /x
  730. {
  731. /_gf exch ddef
  732. findcmykcustomcolor
  733. /_if exch ddef
  734. /_fc
  735. {
  736. _lp /fill ne
  737.     {
  738.     _of setoverprint
  739.     _if _gf 1 exch sub setcustomcolor
  740.     /_lp /fill ddef
  741.     } if
  742. } ddef
  743. /_pf
  744. {
  745. _fc
  746. fill
  747. } ddef
  748. /_psf
  749. {
  750. _fc
  751. exch pop
  752. ashow
  753. } ddef
  754. /_lp /none ddef
  755. } def
  756. /X
  757. {
  758. /_gs exch ddef
  759. findcmykcustomcolor
  760. /_is exch ddef
  761. /_sc
  762. {
  763. _lp /stroke ne
  764.     {
  765.     _os setoverprint
  766.     _is _gs 1 exch sub setcustomcolor
  767.     /_lp /stroke ddef
  768.     } if
  769. } ddef
  770. /_ps
  771. {
  772. _sc
  773. stroke
  774. } ddef
  775. /_pss
  776. {
  777. _sc
  778. ss
  779. } ddef
  780. /_lp /none ddef
  781. } def
  782. /dp
  783. {
  784. dup null eq
  785. {
  786. pop
  787. _dp 0 ne
  788.     {
  789.     0 1 _dp 1 sub _dl mod
  790.         {
  791.         _da exch get 3 get
  792.         } for
  793.     _dp 1 sub _dl mod 1 add packedarray
  794.     _da 0 get aload pop 8 -1 roll 5 -1 roll pop 4 1 roll
  795.     definepattern pop
  796.     } if
  797. }
  798. {
  799. _dp 0 ne _dp _dl mod 0 eq and
  800.     {
  801.     null dp
  802.     } if
  803. 7 packedarray _da exch _dp _dl mod exch put
  804. _dp _dl mod _da 0 get 4 get 2 packedarray
  805. /_dp _dp 1 add def
  806. } ifelse
  807. } def
  808. /E
  809. {
  810. _ed begin
  811. dup 0 get type /arraytype ne
  812.     {
  813.     0
  814.         {
  815.         dup 1 add index type /arraytype eq
  816.             {
  817.             1 add
  818.             }
  819.             {
  820.             exit
  821.             } ifelse
  822.         } loop
  823.     array astore
  824.     } if
  825. /_dd exch def
  826. /_ury exch def
  827. /_urx exch def
  828. /_lly exch def
  829. /_llx exch def
  830. /_n exch def
  831. /_y 0 def
  832. /_dl 4 def
  833. /_dp 0 def
  834. /_da _dl array def
  835. 0 1 _dd length 1 sub
  836.     {
  837.     /_d exch _dd exch get def
  838.     0 2 _d length 2 sub
  839.         {
  840.         /_x exch def
  841.         /_c _d _x get _ ne def
  842.         /_r _d _x 1 add get cvlit def
  843.         _r _ ne
  844.             {
  845.             _urx _llx sub _ury _lly sub [1 0 0 1 0 0] 
  846.                 [
  847.                 /save cvx
  848.                 _llx neg _lly neg /translate cvx
  849.                 _c
  850.                     {
  851.                     nc /begin cvx
  852.                     } if
  853.                 _r dup type /stringtype eq
  854.                     {
  855.                     cvx
  856.                     }
  857.                     {
  858.                     {exec} /forall cvx
  859.                     } ifelse
  860.                 _c
  861.                     {
  862.                     /end cvx
  863.                     } if
  864.                 /restore cvx
  865.                 ] cvx
  866.             /_fn 12 _n length add string def
  867.             _y _fn cvs pop
  868.             /_y _y 1 add def
  869.             _fn 12 _n putinterval
  870.             _fn _c false dp
  871.             _d exch _x 1 add exch put
  872.             } if
  873.         } for
  874.     } for
  875. null dp
  876. _n _dd /_pd
  877. end xput
  878. } def
  879. /fc
  880. {
  881. _fm dup concatmatrix pop
  882. } def
  883. /p
  884. {
  885. /_fm exch ddef
  886. 9 -2 roll _pm translate fc
  887. 7 -2 roll _pm scale fc
  888. 5 -1 roll _pm rotate fc
  889. 4 -2 roll exch 0 ne
  890.     {
  891.     dup _pm rotate fc
  892.     1 -1 _pm scale fc
  893.     neg _pm rotate fc
  894.     }
  895.     {
  896.     pop
  897.     } ifelse
  898. dup _pm rotate fc
  899. exch dup sin exch cos div 1 0 0 1 0 6 2 roll
  900. _pm astore fc
  901. neg _pm rotate fc
  902. _pd exch get /_fdd exch ddef
  903. /_pf
  904. {
  905. save
  906. 0 1 _fdd length 1 sub
  907.     {
  908.     /_fd exch _fdd exch get ddef
  909.     _fd
  910.     0 2 _fd length 2 sub
  911.         {
  912.         gsave
  913.         2 copy get dup _ ne
  914.             {
  915.             cvx exec _fc
  916.             }
  917.             {
  918.             pop
  919.             } ifelse
  920.         2 copy 1 add get dup _ ne
  921.             {
  922.             aload pop findfont _fm
  923.             patternfill
  924.             }
  925.             {
  926.             pop
  927.             fill
  928.             } ifelse
  929.         grestore
  930.         pop
  931.         } for
  932.     pop
  933.     } for
  934. restore
  935. newpath
  936. } ddef
  937. /_psf
  938. {
  939. save
  940. 0 1 _fdd length 1 sub
  941.     {
  942.     /_fd exch _fdd exch get ddef
  943.     _fd
  944.     0 2 _fd length 2 sub
  945.         {
  946.         gsave
  947.         2 copy get dup _ ne
  948.             {
  949.             cvx exec _fc
  950.             }
  951.             {
  952.             pop
  953.             } ifelse
  954.         2 copy 1 add get dup _ ne
  955.             {
  956.             aload pop findfont _fm
  957.             10 copy 6 npop exch pop patternashow
  958.             }
  959.             {
  960.             pop
  961.             7 copy 3 npop exch pop ashow
  962.             } ifelse
  963.         grestore
  964.         pop
  965.         } for
  966.     pop
  967.     } for
  968. restore
  969. 4 npop newpath
  970. } ddef
  971. /_lp /none ddef
  972. } def
  973. /sc
  974. {
  975. _sm dup concatmatrix pop
  976. } def
  977. /P
  978. {
  979. /_sm exch ddef
  980. 9 -2 roll _pm translate sc
  981. 7 -2 roll _pm scale sc
  982. 5 -1 roll _pm rotate sc
  983. 4 -2 roll exch 0 ne
  984.     {
  985.     dup _pm rotate sc
  986.     1 -1 _pm scale sc
  987.     neg _pm rotate sc
  988.     }
  989.     {
  990.     pop
  991.     } ifelse
  992. dup _pm rotate sc
  993. exch dup sin exch cos div 1 0 0 1 0 6 2 roll
  994. _pm astore sc
  995. neg _pm rotate sc
  996. _pd exch get /_sdd exch ddef
  997. /_ps
  998. {
  999. save
  1000. 0 1 _sdd length 1 sub
  1001.     {
  1002.     /_sd exch _sdd exch get ddef
  1003.     _sd
  1004.     0 2 _sd length 2 sub
  1005.         {
  1006.         gsave
  1007.         2 copy get dup _ ne
  1008.             {
  1009.             cvx exec _sc
  1010.             }
  1011.             {
  1012.             pop
  1013.             } ifelse
  1014.         2 copy 1 add get dup _ ne
  1015.             {
  1016.             aload pop findfont _sm
  1017.             patternstroke
  1018.             }
  1019.             {
  1020.             pop stroke
  1021.             } ifelse
  1022.         grestore
  1023.         pop
  1024.         } for
  1025.     pop
  1026.     } for
  1027. restore
  1028. newpath
  1029. } ddef
  1030. /_pss
  1031. {
  1032. save
  1033. 0 1 _sdd length 1 sub
  1034.     {
  1035.     /_sd exch _sdd exch get ddef
  1036.     _sd
  1037.     0 2 _sd length 2 sub
  1038.         {
  1039.         gsave
  1040.         2 copy get dup _ ne
  1041.             {
  1042.             cvx exec _sc
  1043.             }
  1044.             {
  1045.             pop
  1046.             } ifelse
  1047.         2 copy 1 add get dup _ ne
  1048.             {
  1049.             aload pop findfont _sm
  1050.             11 copy 6 npop 3 -1 roll pop patternashowstroke
  1051.             }
  1052.             {
  1053.             pop
  1054.             8 copy 3 npop ss
  1055.             } ifelse
  1056.         grestore
  1057.         pop
  1058.         } for
  1059.     pop
  1060.     } for
  1061. restore
  1062. 5 npop newpath
  1063. } ddef
  1064. /_lp /none ddef
  1065. } def
  1066. /A
  1067. {
  1068. pop
  1069. } def
  1070. /nc 3 dict def
  1071. nc begin
  1072. /setgray
  1073. {
  1074. pop
  1075. } bind def
  1076. /setcmykcolor
  1077. {
  1078. 4 npop
  1079. } bind def
  1080. /setcustomcolor
  1081. {
  1082. 2 npop
  1083. } bind def
  1084. currentdict readonly pop end
  1085. currentdict readonly pop end
  1086. setpacking
  1087. %%EndProcSet
  1088.